home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / lisp / elk-2_0.lha / elk-2.0 / scripts / linkscheme.sh < prev    next >
Linux/UNIX/POSIX Shell Script  |  1992-10-23  |  2KB  |  70 lines
  1. #!/bin/sh
  2.  
  3. # This script creates an interpreter that is linked together statically
  4. # with your extensions (on machines that don't support incremental linking).
  5. # 
  6. # The first argument is the executable to be created, the remaining
  7. # arguments are the .o-files of your extensions and optional libraries.
  8. #
  9. # For example, to create an instance of the interpreter containing the X11
  10. # extensions and all the Athena widgets, call in the toplevel directory:
  11. #
  12. #   src/link-scheme xscheme lib/util/*.o lib/xt/*.o lib/xaw/*.o
  13. #                           -lXaw -lXt -lXmu -lXext -lX11 
  14.  
  15. if [ $# = 0 ]
  16. then
  17.     echo Usage: "$0: output-file [object-files]"
  18.     exit 1
  19. fi
  20. ofiles=@ofiles@
  21. aout=$1
  22. if [ -f $aout ]
  23. then
  24.     echo $aout already exists.
  25.     exit 1
  26. fi
  27. shift
  28. extensions=$*
  29.  
  30. # A special case is required for AIX.  The AIX linker discards all object
  31. # files whose external symbols are not referenced.  This stupid `garbage
  32. # collection' cannot be switched off.  Since extensions do not have entry
  33. # points that are called directly, they are garbage collected away by the
  34. # linker (the interpreter scans its symbol table on startup to find the
  35. # entry points and calls them indirectly by using the symbol values).
  36. #
  37. # To avoid this, we have to create an `export list' containing at least one
  38. # external function from each extension.  We are using the init_ functions,
  39. # as it is guaranteed that each extensions exports at least one such function.
  40. #
  41. # We grep in the nm output for all lines of this form (i.e. entries that
  42. # start with .init_ and have a symbol type of "extern"):
  43. # 
  44. # .init_foobar      |    113520|extern|             |      |     |.text
  45. #
  46. # then select the symbol name, and delete the initial period.
  47.  
  48. case @system@ in
  49. *-aix*-*)
  50.     echo Creating export list for stupid AIX linker:
  51.     for e in $extensions
  52.     do
  53.     case $e in
  54.     -l*) ;;
  55.       *)
  56.         nm -e $e | grep '^\.init_.*|extern|' | sed -e 's/[|.]//g' \
  57.         | awk '{print $1}' >> exportlist
  58.         ;;
  59.     esac
  60.     done
  61.     cat exportlist
  62.     @cc@ -o $aout -bexport:exportlist $ofiles $extensions @ldflags@
  63.     rm exportlist
  64.     ;;
  65. *)
  66.     @cc@ -o $aout $ofiles $extensions @ldflags@
  67.     ;;
  68. esac
  69. chmod +x $aout
  70.